home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 26 / 3 / DISK2631.ZIP / EXAMP1.ZIP / RMEX145.BAS < prev    next >
BASIC Source File  |  1990-04-26  |  299b  |  10 lines
  1.  
  2. StatusReg% = INP( &H61 )             'read value in port 61H
  3. StatusReg% = StatusReg% AND &H00FC
  4. 'mask value read in and make audible tone
  5. FOR J = 1 TO 1000
  6.   StatusReg% = StatusReg%  XOR 2     'toggle speaker
  7.   OUT &H61,StatusReg%                'output new status
  8.   DELAY .001
  9. NEXT J
  10. END